(de javaDefBatch (Package Classes)
  (mapc (quote (ClassObject)
          (javaDef ClassObject
            (simpleClassName ClassObject) ) )
    (mapcar 'javaClass
      (mapcar 'pack
        (mapcar 'reverse
          (mapcar 'list
            Classes
            (circ ".")
            (circ Package) ) ) ) ) ) )